home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / adasmall / select.ada < prev    next >
Text File  |  1996-01-30  |  1KB  |  39 lines
  1. with SMALL_SP; use SMALL_SP;  -- CS159-10 Instructor: Arthur Vargas Lopes
  2.                               -- Fall 1990
  3. procedure SELECT_S is
  4.    ch : character;
  5.    procedure SELECT_S_SORT is
  6.     B : STRING(0..25);
  7.     I,J : INTEGER;
  8.     procedure SWAP(X, Y : in INTEGER) is
  9.         temp : character;
  10.     begin
  11.         CURSORAT(2,X+14); PUT("X"); CURSORAT(2,Y+14); PUT("Y");
  12.         temp := b(x);
  13.         b(x) := b(y);
  14.         b(y) := temp;
  15.         CURSORAT(3,X+14); PUT(b(x)); CURSORAT(3,Y+14); PUT(b(y)); CURSORAT(2,X+14);
  16.         PUT(" "); CURSORAT(2,Y+14); PUT(" ");
  17.     end SWAP;
  18.  begin
  19.        B := "ZYXWVUTSRQPONMLKJIHGFEDCBA";
  20.        for k in 0..25 loop
  21.            CURSORAT(3,k+14);
  22.            put(b(k));
  23.        end loop;
  24.        for i in 0..24 loop               CURSORAT(2,50); PUT("I: "); PUT(I);
  25.          for j in (i+1)..25 loop         CURSORAT(3,50); PUT("J: "); PUT(J);
  26.            if B(I) > B(J) then
  27.              SWAP(I,J);
  28.            end if;
  29.          end loop;
  30.        end loop;
  31.    end SELECT_S_SORT;
  32. begin
  33.   CURSORAT(3,1); PUT("Selection:");
  34.   SELECT_S_SORT;
  35.   CURSORAT(19,1); PUT("Press enter to proceed..."); GET(ch);
  36. end SELECT_S;
  37.  
  38.  
  39.